COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION X(14),Y(14),INK(14),IBUF(5000)
C00004 ENDMK
C⊗;
	DIMENSION X(14),Y(14),INK(14),IBUF(5000)
	COMMON /FAC/JFAC,KFAC
	DATA X/0.,.7,.7,.6,1.8,2.6,3.1,3.9,3.5,3.4,4.5,4.8,5.,5.3/,
	1 Y/0.,.5,.3,.1,.5,-.3,-.8,.5,.6,.8,1.1,.7,1.,1./,
	1 INK/3,3,3,2,2,2,3,2,2,3,2,2,2,2/
CC	1 INK/3,2,3,2,2,2,3,2,2,3,2,2,2,2/
	TYPE 1
	ACCEPT 2,JFAC,KFAC
	IF(JFAC.EQ.0)JFAC=100
	IF(KFAC.EQ.0)KFAC=100
	CALL PLOT (15.,14.75,-3)
	CX=0.0
	CY=0.0
	ANG=5
CX	ANG=1.5
CC	KK=120
CC	DO 30 JJ=1,120
	KK= 50
CC	DO 30 JJ=1,120
	CALL PLOTS (IBUF,5000,1)
	KK=KK+1
	DO 20 J=1,240
CC	DO 20 J=JJ,KK
	DO 10 K=1,14
	CALL PLOT (X(K),Y(K),INK(K))
 10	CONTINUE
	CALL ROTATE (X,Y,14,CX,CY,ANG)
CC	ANG=ANG+.02
	JFAC=JFAC-1
	KFAC=KFAC-1
 20	CONTINUE
 30	CONTINUE
	CALL PLOT (0.0,-30.,-3)
	CALL PLOT(0.0,0.0,999)
	STOP
1	FORMAT(' TYPE X FACTOR AND Y FACTOR   '$)
2	FORMAT(2I)
	END